home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / vrxtra.cst / 00004_object movie handlers.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  1.0 KB  |  27 lines
  1. -- Routines for managing object movies
  2. -------------------------------------------------------------------------------
  3.  
  4.  
  5.  
  6. --=============================================================================
  7. -- ZoomNavMovie:
  8. --      pStartZoomRect specifies the start rect as a string rect
  9. --      [pSkipFirstFrame] is "true" if the first zoom frame should not be shown
  10. --      [pClipRect] is the screen string rect to which the zoom should be clipped
  11. --
  12. -- Zooms the nav movie out from the start rect specified, possibly skipping
  13. -- the first frame and clipping to a given rect.
  14. -- Note: this is unsupported on the PC side
  15. -------------------------------------------------------------------------------
  16. on ZoomNavMovie pStartZoomRect, pSkipFirstFrame, pClipRect
  17.   global gQTVRInstanceXtra
  18.   
  19.   -- Make sure we're on a mac before trying this
  20.   if the machineType <> 256 then
  21.     
  22.     if IsQTVRMovie(gQTVRInstanceXtra) then
  23.       QTVRZoomOutEffect(gQTVRInstanceXtra,pStartZoomRect,pSkipFirstFrame,pClipRect)
  24.       QTVRIdle(gQTVRInstanceXtra)
  25.     end if
  26.   end if
  27. end ZoomNavMovie